home *** CD-ROM | disk | FTP | other *** search
/ CD PowerPlay 10 / CD Powerplay Issue 10 (February 1996).iso / primal / code / micro.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-11  |  2.0 KB  |  69 lines
  1. VERSION 2.00
  2. Begin Form MicroMachines 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Kev's Video Selection"
  5.    ClientHeight    =   6915
  6.    ClientLeft      =   2520
  7.    ClientTop       =   2955
  8.    ClientWidth     =   9570
  9.    Height          =   7320
  10.    Left            =   2460
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Picture         =   MICRO.FRX:0000
  15.    ScaleHeight     =   6915
  16.    ScaleWidth      =   9570
  17.    Top             =   2610
  18.    Width           =   9690
  19.    Begin Image IntClk 
  20.       Height          =   1455
  21.       Left            =   360
  22.       MousePointer    =   10  'Up Arrow
  23.       Top             =   4800
  24.       Width           =   1575
  25.    End
  26.    Begin Image GoBack 
  27.       Height          =   1215
  28.       Left            =   240
  29.       MousePointer    =   10  'Up Arrow
  30.       Top             =   240
  31.       Width           =   1575
  32.    End
  33. Option Explicit
  34. Sub Form_Load ()
  35.     'If HiColour = False Then
  36.     '    Me.Picture = LoadPicture(CDrive & "cd\page1256.bmp")
  37.     'Else
  38.     '    Me.Picture = LoadPicture(CDrive & "cd\page1.bmp")
  39.     'End If
  40.     'If SmallRes = True Then
  41.     '    Me.Move 0, 0
  42.     'Else
  43.     '    centre Me
  44.     'End If
  45.     'cover.MMControl6.Command = "stop"
  46.     'cover.MMControl6.Command = "close"
  47. End Sub
  48. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  49.     'info.Visible = False
  50. End Sub
  51. Sub GoBack_Click ()
  52.     'cover.Show
  53.     Unload Me
  54. End Sub
  55. Sub IntClk_Click ()
  56.     introduction.Show
  57.     Hide
  58.     introduction.MMControl1.FileName = CDrive & "primal\primal2.avi"
  59.     screen.MousePointer = 11
  60.     introduction.MMControl1.Command = "open"
  61.     introduction.MMControl1.hWndDisplay = introduction.Picture1.hWnd
  62.     'introduction.MMControl1.Silent = True
  63.     introduction.Picture1.Visible = True
  64.     DoEvents
  65.     introduction.MMControl1.Command = "play"
  66.     screen.MousePointer = 0
  67.     'MsgBox "After AVI"
  68. End Sub
  69.